﻿
Partial Class App_TestLoginFacebook
    Inherits MyUI.PageBaseApp

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Dim oauth = New WebApi.Oauth.Oauth
        oauth.oauthConsumerSecret = "324242797689957"
        oauth.oauthConsumerKey = "15f2fda6c4d5911a2f4fcf992c71582e"
        oauth.oauthMethod = "GET"


        If (Request("code") <> Nothing) Then
            'L'utente riconosciuto da Twitter ci ha autorizzato, chiedo quindi a Twitter i dati dell'utente
            oauth.oauthToken = Request("code")
            Dim queryString = HttpUtility.ParseQueryString("")
            queryString.Add("client_id", oauth.oauthConsumerSecret)
            queryString.Add("redirect_uri", Request.Url.ToString())
            queryString.Add("client_secret", oauth.oauthConsumerKey)
            queryString.Add("code", oauth.oauthToken)
            oauth.getResponse("https://graph.facebook.com/oauth/access_token?" + queryString.ToString)

            Dim currentUser = DB.TAB.User.GetByPK(1)
            'Dim facebookClient = New WebApi.Facebook.FacebookClient(currentUser.getOauth)
            'facebookClient.GetTweets("test", currentUser.Id)


        Else
            'Richiedo il token di autorizzazione a twitter
            oauth.getResponse("https://www.facebook.com/dialog/oauth")
            'Redirigo l'utente a twitter che ha capito chi sono e verifica se l'utente è loggato e se sì controlla che abbia l'autorizzazione con la mia applicazione
            Dim queryString = HttpUtility.ParseQueryString("")
            queryString.Add("client_id", oauth.oauthConsumerSecret)
            queryString.Add("redirect_uri", Request.Url.ToString())
            Response.Redirect("https://www.facebook.com/dialog/oauth?" + queryString.ToString)
        End If

    End Sub

End Class
